TAK.IL[TIM,LSP] - www.SailDart.org

perm filename TAK.IL[TIM,LSP] blob sn#727372 filedate 1983-10-18 generic text, type T, neo UTF8

(FILECREATED "14-FEB-83 10:11:44" {PHYLUM}<GABRIEL>TAK.;2 453    

      changes to:  (VARS TAKCOMS)
		   (FNS TAK)

      previous date: "14-FEB-83 09:45:21" {DSK}TAK.;1)


(PRETTYCOMPRINT TAKCOMS)

(RPAQQ TAKCOMS ((FNS TAK)
		(BLOCKS (TAK TAK (ENTRIES TAK)))))

(DEFINEQ
(TAK
  [LAMBDA (X Y Z)
    (COND
      ((NOT (ILESSP Y X))
	Z)
      (T (TAK (TAK (SUB1 X)
		   Y Z)
	      (TAK (SUB1 Y)
		   Z X)
	      (TAK (SUB1 Z)
		   X Y])
)

(DECLARE: DONTCOPY
  (FILEMAP (NIL (236 431 (TAK 246 . 429)))))
STOP